;; test-list.ss  --  Jens Axel Soegaard

(include "list.ss")

;; CATENABLE LISTS

(use-catenable-list (bootstrap-catenable-list queue@) cl)

(define (catenable-list->list cl)
  (if (cl:empty? cl)
      '()
      (cons (cl:first cl)
            (catenable-list->list (cl:rest cl)))))

(let ([cl (cl:append (cl:cons 1 (cl:cons 2 cl:empty))
                     (cl:cons 3 (cl:cons 4 cl:empty)))])
  (catenable-list->list (cl:append cl cl)))

